-- card: 14303 from stack: in -- bmap block id: 14391 -- flags: 0000 -- background id: 2135 -- name: Diamond -- part 1 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=11 top=60 right=321 bottom=261 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: -- part 2 (field) -- low flags: 00 -- high flags: 0000 -- rect: left=262 top=60 right=334 bottom=508 -- title width / last selected line: 0 -- icon id / first selected line: 0 / 0 -- text alignment: 0 -- font id: 2 -- text size: 10 -- style flags: 0 -- line height: 13 -- part name: -- part contents for background part 1 ----- text ----- 27 -- part contents for card part 1 ----- text ----- error, the user will be alerted (and probably caused to panic) and the program aborted. This is not very graceful, yet. If you have suggestions on how it can be improved, please let me know. Example 6: The error handler object's definition. TError = object procedure Init; procedure DisplayMsg (errStr: Integer); procedure CheckHandle (h: Handle; errStr: Integer); procedure CheckPtr (p: Ptr; errStr: Integer); procedure Dispose; end; The last object (or actually a pair of objects) has to do with menus. The variable (or more properly, object reference), -- part contents for card part 2 ----- text ----- theMenuBar, is an instance of the TMenuBar object. It uses objects of class TMenu to implement menus. I am also not satisfied with the way these objects work (although they do work). I will improve these objects and discuss them further next month. In the meantime, let's describe what we have so far. The program starts by creating an error handler object, errHandler, so that problems can be reported. Next the menu bar object is opened and two windows are created. Finally the event loop entered. Until Quit is selected from the file menu, the program allows you to manipulate the two windows in any way you wish. One warning though, if you close a window, it is gone.